home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v10n16.arc
/
MENUDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-08-27
|
588b
|
23 lines
PROGRAM MenuDemo;
USES MenuUnit, Crt;
VAR
Choice : Integer;
M : BBMenu;
BEGIN
M.Init(25, 7, 18);
M.AddPrompt('Open a new file');
M.AddPrompt('Existing file');
M.AddPrompt('Close a file');
M.AddPrompt('Quit');
Choice := M.GetChoice;
GotoXY(1, 24); ClrEOL;
CASE Choice OF
0 : WriteLn('No choice was made');
1 : WriteLn('Procedure NewFile should be called');
2 : WriteLn('Procedure ExistingFile should be called');
3 : WriteLn('Procedure CloseFile should be called');
4 : WriteLn('Quitting ...');
END;
M.Done;
END.